home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b9.d64
/
src.errorpack
< prev
next >
Wrap
Text File
|
2007-02-28
|
9KB
|
475 lines
;
;ERROR MESSAGE PACKAGE
;
;BY JESSE KNIGHT
;
;WRITTEN: 12/30/84
;
;LAST UPDATE: 1/28/85
;
PAGE=%01010110 ;DEFPAG+ROMMED
IERTXT=$C7E4 ;ERROR MESSAGES ADDR/PAGE
;
;
*=$B000
;
;
.BYT PAGE ;GIVE PAGE
;
.WORD END ;END OF PACKAGE
;
.WORD PSENSE ;SENSE ROUTINE
;
.BYT 8,'MYERRORS' ;PACKAGE NAME
;
.WORD ZERO ;NO PROCS
;
.WORD PKINIT ;PACK INIT ROUTINE
;
ZERO .BYT 0 ;END OF TABLE
;
PKINIT LDX #<NMSGS ;SET EMPNTR
LDA #>NMSGS ;TO NEW ERROR
LDY #PAGE ;MESSAGES
STX IERTXT
STA IERTXT+1
STY IERTXT+2
PSENSE RTS ;RETURN
;
NMSGS ;NEW ERROR MESSAGES
;
.WORD MG1 ;POINT TO SET 2
;
MSG0 .BYT 0
.BYT MSG1-*-1
.BYT 'REPORT ERROR'
MSG1 .BYT 1
.BYT MSG2-*-1
.BYT 'ARGUMENT ERROR'
MSG2 .BYT 2
.BYT MSG3-*-1
.BYT 'OVERFLOW'
MSG3 .BYT 3
.BYT MSG4-*-1
.BYT 'DIVISION BY ZERO'
MSG4 .BYT 4
.BYT MSG5-*-1
.BYT 'SUBSTRING ERROR'
MSG5 .BYT 5
.BYT MSG6-*-1
.BYT 'VALUE OUT OF RANGE'
MSG6 .BYT 6
.BYT MSG7-*-1
.BYT 'STEP = 0'
MSG7 .BYT 7
.BYT MSG8-*-1
.BYT 'ILLEGAL BOUND'
MSG8 .BYT 8
.BYT MSG10-*-1
.BYT 'ERROR IN PRINT USING'
MSG10 .BYT 10
.BYT MSG11-*-1
.BYT 'INDEX OUT OF RANGE'
MSG11 .BYT 11
.BYT MSG13-*-1
.BYT 'INVALID FILE NAME'
;
MSG13 .BYT 13
.BYT MSG14-*-1
.BYT 'VERIFY ERROR'
MSG14 .BYT 14
.BYT MSG15-*-1
.BYT 'PROGRAM TOO BIG'
MSG15 .BYT 15
.BYT MSG16-*-1
.BYT 'BAD COMAL CODE'
MSG16 .BYT 16
.BYT MSG17-*-1
.BYT 'NOT COMAL PROGRAM FILE'
MSG17 .BYT 17
.BYT MSG18-*-1
.BYT 'PROGRAM FOR OTHER COMAL VERSION'
MSG18 .BYT 18
.BYT MSG30-*-1
.BYT 'UNKNOWN FILE ATTRIBUTE'
;
;
;
MSG30 .BYT 30
.BYT MSG31-*-1
.BYT 'ILLEGAL COLOR'
MSG31 .BYT 31
.BYT MSG32-*-1
.BYT 'ILLEGAL BOUNDARY'
MSG32 .BYT 32
.BYT MSG33-*-1
.BYT 'ILLEGAL SHAPE NUMBER'
MSG33 .BYT 33
.BYT MSG34-*-1
.BYT 'SHAPE LENGTH MUST BE 64'
MSG34 .BYT 34
.BYT MSG35-*-1
.BYT 'ILLEGAL SPRITE NUMBER'
MSG35 .BYT 35
.BYT MSG36-*-1
.BYT 'ILLEGAL VOICE'
MSG36 .BYT 36
.BYT MSG51-*-1
.BYT 'ILLEGAL NOTE'
;
;
;
MSG51 .BYT 51
.BYT MSG52-*-1
.BYT 'SYSTEM ERROR'
MSG52 .BYT 52
.BYT MSG53-*-1
.BYT 'OUT OF MEMORY'
MSG53 .BYT 53
.BYT MSG54-*-1
.BYT 'WRONG DIMENSION IN PARAMETER'
MSG54 .BYT 54
.BYT MSG55-*-1
.BYT 'PARAMETER MUST BE AN ARRAY'
MSG55 .BYT 55
.BYT MSG56-*-1
.BYT 'TOO FEW INDICES'
MSG56 .BYT 56
.BYT MSG57-*-1
.BYT 'STRING ASSIGNMENT ERROR'
MSG57 .BYT 57
.BYT MSG58-*-1
.BYT 'NOT IMPLEMENTED'
MSG58 .BYT 58
.BYT MSG59-*-1
.BYT 'CON NOT POSSIBLE'
MSG59 .BYT 59
.BYT MSG60-*-1
.BYT 'PROGRAM HAS BEEN MODIFIED'
MSG60 .BYT 60
.BYT MSG61-*-1
.BYT 'TOO MANY INDICES'
MSG61 .BYT 61
.BYT MSG62-*-1
.BYT 'FUNCTION VALUE NOT RETURNED'
MSG62 .BYT 62
.BYT MSG67-*-1
.BYT 'NOT A VARIABLE'
;
MSG67 .BYT 67
.BYT MSG68-*-1
.BYT 'PARAMETER LISTS DIFFER OR NOT CLOSED'
MSG68 .BYT 68
.BYT MSG69-*-1
.BYT 'NO CLOSED PROC/FUNC IN FILE'
MSG69 .BYT 69
.BYT MSG70-*-1
.BYT 'TOO FEW PARAMETERS'
MSG70 .BYT 70
.BYT MSG71-*-1
.BYT 'WRONG INDEX TYPE'
MSG71 .BYT 71
.BYT MSG72-*-1
.BYT 'PARAMETER MUST BE A VARIABLE'
MSG72 .BYT 72
.BYT MSG73-*-1
.BYT 'WRONG PARAMETER TYPE'
MSG73 .BYT 73
.BYT MSG74-*-1
.BYT 'NON-RAM LOAD'
MSG74 .BYT 74
.BYT MSG75-*-1
.BYT 'CHECKSUM ERROR IN OBJECT FILE'
MSG75 .BYT 75
.BYT MSG76-*-1
.BYT 'MEMORY AREA IS PROTECTED'
MSG76 .BYT 76
.BYT MSG77-*-1
.BYT 'TOO MANY LIBRARIES'
MSG77 .BYT 77
.BYT MSG78-*-1
.BYT 'NOT AN OBJECT FILE'
MSG78 .BYT 78
.BYT MSG79-*-1
.BYT 'NO MATCHING WHEN'
MSG79 .BYT 79
.BYT MSG101-*-1
.BYT 'TOO MANY PARAMETERS'
;
;
;
MSG101 .BYT 101
.BYT MSG102-*-1
.BYT 'SYNTAX ERROR'
MSG102 .BYT 102
.BYT MSG103-*-1
.BYT 'WRONG TYPE'
MSG103 .BYT 103
.BYT MSG104-*-1
.BYT 'STATEMENT TOO LONG OR TOO COMPLICATED'
MSG104 .BYT 104
.BYT MSG106-*-1
.BYT 'STATEMENT ONLY, NOT COMMAND'
;
MSG106 .BYT 106
.BYT MSG108-*-1
.BYT 'LINE NUMBER RANGE: 1 TO 9999'
;
MSG108 .BYT 108
.BYT MSG109-*-1
.BYT 'PROCEDURE/FUNCTION DOES NOT EXIST'
MSG109 .BYT 109
.BYT MSG110-*-1
.BYT 'STRUCTURED STATEMENT NOT ALLOWED HERE'
MSG110 .BYT 110
.BYT MSG111-*-1
.BYT 'NOT A STATEMENT'
MSG111 .BYT 111
.BYT MSG112-*-1
.BYT 'LINE NUMBERS WILL EXCEED 9999'
MSG112 .BYT 112
.BYT MSG113-*-1
.BYT 'SOURCE PROTECTED!!!'
MSG113 .BYT 113
.BYT MSG114-*-1
.BYT 'ILLEGAL CHARACTER'
MSG114 .BYT 114
.BYT MSG115-*-1
.BYT 'ERROR IN CONSTANT'
MSG115 .BYT 115
.BYT MSG200-*-1
.BYT 'ERROR IN EXPONENT'
;
;
;
MSG200 .BYT 200
.BYT MSG201-*-1
.BYT 'END OF DATA'
MSG201 .BYT 201
.BYT MSG202-*-1
.BYT 'END OF FILE'
MSG202 .BYT 202
.BYT MSG203-*-1
.BYT 'FILE ALREADY OPEN'
MSG203 .BYT 203
.BYT MSG204-*-1
.BYT 'FILE NOT OPEN'
MSG204 .BYT 204
.BYT MSG205-*-1
.BYT 'NOT INPUT FILE'
MSG205 .BYT 205
.BYT MSG206-*-1
.BYT 'NOT OUTPUT FILE'
MSG206 .BYT 206
.BYT MSG207-*-1
.BYT 'NUMERIC CONSTANT EXPECTED'
MSG207 .BYT 207
.BYT MSG208-*-1
.BYT 'NOT RANDOM ACCESS FILE'
MSG208 .BYT 208
.BYT MSG209-*-1
.BYT 'DEVICE NOT PRESENT'
MSG209 .BYT 209
.BYT MSG210-*-1
.BYT 'TOO MANY FILES OPEN'
MSG210 .BYT 210
.BYT MSG211-*-1
.BYT 'READ ERROR'
MSG211 .BYT 211
.BYT MSG212-*-1
.BYT 'WRITE ERROR'
MSG212 .BYT 212
.BYT MSG213-*-1
.BYT 'SHORT BLOCK ON TAPE'
MSG213 .BYT 213
.BYT MSG214-*-1
.BYT 'LONG BLOCK ON TAPE'
MSG214 .BYT 214
.BYT MSG215-*-1
.BYT 'CHECKSUM ERROR ON TAPE'
MSG215 .BYT 215
.BYT MSG216-*-1
.BYT 'END OF TAPE'
MSG216 .BYT 216
.BYT MSG217-*-1
.BYT 'FILE NOT FOUND'
MSG217 .BYT 217
.BYT MSG218-*-1
.BYT 'UNKNOWN DEVICE'
MSG218 .BYT 218
.BYT MSG219-*-1
.BYT 'ILLEGAL OPERATION'
MSG219 .BYT 219
.BYT MSG230-*-1
.BYT 'I/O BREAK'
;
;
;
MSG230 .BYT 230
.BYT MSG231-*-1
.BYT 13,'END AT '
MSG231 .BYT 231
.BYT MSG232-*-1
.BYT 13,'STOP AT '
MSG232 .BYT 232
.BYT MSG233-*-1
.BYT ' BYTES FREE.',13,13
MSG233 .BYT 233
.BYT MSG242-*-1
.BYT 'ERROR'
;
;
;
MSG242 .BYT 242
.BYT MSG243-*-1
.BYT 'AT '
MSG243 .BYT 243
.BYT MSG244-*-1
.BYT 'PROG DATA FREE',13
MSG244 .BYT 244
.BYT MSG245-*-1
.BYT 'THE PROGRAM STOPPED AT'
MSG245 .BYT 245
.BYT MSG246-*-1
.BYT 'WHICH IS CALLED AT'
MSG246 .BYT 246
.BYT MSG255-*-1
.BYT 'WITHIN'
;
;
MSG255 .BYT 255 ;MARKER FOR SET 1 END ???
;
;
MG1 .BYT MG2-*-1
.BYT 249
MG2 .BYT MG3-*-1
.BYT 250
;
MG3 .BYT MG4-*-1
.BYT 97,' OR ',95
MG4 .BYT MG5-*-1
.BYT 'UNKNOWN LABEL'
MG5 .BYT MG6-*-1
.BYT 'NAME ALREADY DEFINED'
MG6 .BYT MG7-*-1
.BYT 'NOT A LABEL'
MG7 .BYT MG8-*-1
.BYT 'STRING NOT DIMENSIONED'
MG8 .BYT MG9-*-1
.BYT 'NOT A PACKAGE'
MG9 .BYT MG10-*-1
.BYT 'EXPRESSION'
MG10 .BYT MG11-*-1
.BYT 'VARIABLE'
MG11 .BYT MG12-*-1
.BYT 'OPERAND'
MG12 .BYT MG13-*-1
.BYT 'VARIABLE NAME'
MG13 .BYT MG14-*-1
.BYT 'NUM. VARIABLE NAME'
MG14 .BYT MG15-*-1
.BYT 'NUMERIC EXPRESSION'
MG15 .BYT MG16-*-1
.BYT 'STRING EXPRESSION'
MG16 .BYT MG17-*-1
.BYT 198,' OR ',96
MG17 .BYT MG18-*-1
.BYT 97,' OR ',202
MG18 .BYT MG19-*-1
.BYT 198,' OR ',199
MG19 .BYT MG20-*-1
.BYT 203,' OR ',205
MG20 .BYT MG21-*-1
.BYT 'MODE'
MG21 .BYT MG22-*-1
.BYT 'CONSTANT'
MG22 .BYT MG23-*-1
.BYT 'LINE NUMBER'
MG23 .BYT MG24-*-1
.BYT 'BINARY CONSTANT'
MG24 .BYT MG25-*-1
.BYT 'LABEL'
MG25 .BYT MG26-*-1
.BYT 113,'/',114,'/',117
MG26 .BYT MG27-*-1
.BYT 117
MG27 .BYT MG28-*-1
.BYT 118
MG28 .BYT MG29-*-1
.BYT 240
MG29 .BYT MG30-*-1
.BYT 245
MG30 .BYT MG31-*-1
.BYT 176
MG31 .BYT MG32-*-1
.BYT 119
MG32 .BYT MG33-*-1
.BYT 178,'/',147,'/',116
MG33 .BYT MG34-*-1
.BYT 178,'/',147,'/',116
MG34 .BYT MG35-*-1
.BYT 116
MG35 .BYT MG36-*-1
.BYT ' NOT EXPECTED'
MG36 .BYT MG37-*-1
.BYT ' MISSING'
MG37 .BYT MG38-*-1
.BYT ' EXPECTED, NOT '
MG38 .BYT MG39-*-1
.BYT 'REAL CONSTANT'
MG39 .BYT MG40-*-1
.BYT 'INTEGER CONSTANT'
MG40 .BYT MG41-*-1
.BYT 'STRING CONSTANT'
MG41 .BYT MG42-*-1
.BYT 'NAME'
MG42 .BYT MG43-*-1
.BYT 'INTEGER NAME'
MG43 .BYT MG44-*-1
.BYT 'STRING NAME'
MG44 .BYT MG45-*-1
.BYT ' NOT ALLOWED IN CONTROL STRUCTURES'
MG45 .BYT MG46-*-1
.BYT ' WITHOUT '
MG46 .BYT MG47-*-1
.BYT 244
MG47 .BYT MG48-*-1
.BYT 178
MG48 .BYT MG49-*-1
.BYT 226,' ALLOWED IN CLOSED PROC/FUNC ONLY'
MG49 .BYT MG50-*-1
.BYT 'WRONG TYPE OF '
MG50 .BYT MG51-*-1
.BYT 'WRONG NAME IN '
MG51 .BYT MG52-*-1
.BYT 104,' OR ',206
MG52 .BYT MG53-*-1
.BYT 'HEX CONSTANT'
MG53 .BYT MG54-*-1
.BYT 'ILLEGAL ',128
MG54 .BYT MG55-*-1
.BYT 'UNKNOWN STATEMENT OR PROCEDURE'
MG55 .BYT MG56-*-1
.BYT 'NOT A PROCEDURE'
MG56 .BYT MG57-*-1
.BYT 'UNKNOWN VARIABLE'
MG57 .BYT MG58-*-1
.BYT 'WRONG TYPE'
MG58 .BYT MG59-*-1
.BYT 'WRONG FUNCTION TYPE'
MG59 .BYT MG60-*-1
.BYT 'NOT AN ARRAY NOR A FUNCTION'
MG60 .BYT MG61-*-1
.BYT 'NOT A SIMPLE VARIABLE'
MG61 .BYT MG62-*-1
.BYT 'UNKNOWN ARRAY OR FUNCTION'
MG62 .BYT MG63-*-1
.BYT 'WRONG ARRAY TYPE'
MG63 .BYT MG64-*-1
.BYT 'IMPORT ERROR'
MG64 .BYT MG65-*-1
.BYT 'UNKNOWN PACKAGE'
MG65
;
END .END